Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/graphics/itgraph/delphi/playgrnd.dfm/playgrnd.txt

Text File | 1995-09-05 | 12.8 KB | 508 lines

object Playground: TPlayground
  Left = 218
  Top = 167
  Width = 649
  Height = 432
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'ITGraph Property Playground'
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 120
  PopupMenu = PopupMenu2
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 20
  object ITGraph1: TITGraph
    Left = 0
    Top = 0
    Width = 641
    Height = 377
    Align = 0
    BackColor = clAqua
    BorderStyle = 0
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    ForeColor = clBlack
    HelpContextId = 0
    TabOrder = 0
    TabStop = True
    ArrangeMode = 2
    AutoArrange = 1
    DrawArrows = True
    DrawBackLinks = 2
    DrawColored = True
    DrawConnLabels = True
    DrawDir = 3
    DrawHandles = True
    DrawItemLabels = True
    DrawScale = 100
    FillColor = clYellow
    Gap = 10
    LineWidth = 0
    RubberBand = 3
    XSpace = 20
    XSpan = 120
    YSpace = 20
    YSpan = 50
    GraphicAllowImport = 3
    Redraw = True
    PrintRectHeight = 0
    PrintRectLeft = 0
    PrintRectTop = 0
    PrintRectWidth = 0
    StoreGraphics = 2
    SelectedIndex = -1
    OnKeyDown = ITGraph1KeyDown
    OnKeyPress = ITGraph1KeyPress
    OnClick = ITGraph1Click
    OnDblClick = ITGraph1DblClick
    OnItemClick = ITGraph1ItemClick
    OnItemDblClick = ITGraph1ItemDblClick
    OnLineDblClick = ITGraph1LineDblClick
    OnItemConnect = ITGraph1ItemConnect
    OnSelectRect = ITGraph1SelectRect
    OnItemDrag = ITGraph1ItemDrag
    DragItems = 0
    SelectRectEnabled = 0
    SelectRectHeight = 0
    SelectRectLeft = 0
    SelectRectTop = 0
    SelectRectWidth = 0
    Graphics_Data = {FFFF}
    AutoMouseEvents_Data = {
      3300010008000C00030001000100010000000000000000000000000000000000
      00000000000000000000000000000000}
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open...'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        OnClick = SaveAs1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print Graph...'
        OnClick = Print1Click
      end
      object PrintReport1: TMenuItem
        Caption = 'Print &Report...'
        OnClick = PrintReport1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print Se&tup...'
        OnClick = PrintSetup1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Node1: TMenuItem
      Caption = '&Node'
      object New2: TMenuItem
        Caption = '&New Node'
        OnClick = New2Click
        ShortCutText = 'Ins'
      end
      object Duplicate1: TMenuItem
        Caption = '&Duplicate'
        Enabled = False
        OnClick = Duplicate1Click
        ShortCutText = 'Ctrl+D'
      end
      object Remove1: TMenuItem
        Caption = '&Remove'
        Enabled = False
        OnClick = Remove1Click
        ShortCutText = 'Del'
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object BringToFront1: TMenuItem
        Caption = 'Bring To Front'
        Enabled = False
        OnClick = BringToFront1Click
      end
      object SendToBack1: TMenuItem
        Caption = 'Send To Back'
        Enabled = False
        OnClick = SendToBack1Click
      end
      object ShiftLeft1: TMenuItem
        Caption = 'Shift Left (Tree)'
        Enabled = False
        OnClick = ShiftLeft1Click
      end
      object ShiftRight1: TMenuItem
        Caption = 'Shift Right (Tree)'
        Enabled = False
        OnClick = ShiftRight1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object FindNode1: TMenuItem
        Caption = '&Find Node'
        OnClick = FindNode1Click
        ShortCutText = 'Ctrl+F'
      end
      object FindAgain1: TMenuItem
        Caption = 'Find &Again'
        Enabled = False
        OnClick = FindAgain1Click
        ShortCutText = 'F3'
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object ArrangeMode1: TMenuItem
        Caption = 'Arrange&Mode (FlowChart)'
        object Hierarchy1: TMenuItem
          Caption = '&Hierarchy'
          OnClick = Hierarchy1Click
        end
        object Compact1: TMenuItem
          Caption = '&Compact'
          OnClick = Compact1Click
        end
        object FlowChart1: TMenuItem
          Caption = '&FlowChart'
          Checked = True
          OnClick = FlowChart1Click
        end
        object Tree1: TMenuItem
          Caption = '&Tree'
          OnClick = Tree1Click
        end
      end
      object AutoArrange1: TMenuItem
        Caption = '&AutoArrange (AutoMatic)'
        object Automatic1: TMenuItem
          Caption = '&Automatic'
          Checked = True
          OnClick = Automatic1Click
        end
        object Manual1: TMenuItem
          Caption = '&Manual'
          OnClick = Manual1Click
        end
        object Now1: TMenuItem
          Caption = '&Now'
          OnClick = Now1Click
        end
      end
      object DrawDir1: TMenuItem
        Caption = '&DrawDir (TopToBottom)'
        object RightToLeft1: TMenuItem
          Caption = '&RightToLeft'
          OnClick = RightToLeft1Click
        end
        object LeftToRight1: TMenuItem
          Caption = '&LeftToRight'
          OnClick = LeftToRight1Click
        end
        object BottomToTop1: TMenuItem
          Caption = '&BottomToTop'
          OnClick = BottomToTop1Click
        end
        object TopToBottom1: TMenuItem
          Caption = '&TopToBottom'
          Checked = True
          OnClick = TopToBottom1Click
        end
      end
      object DrawScale1: TMenuItem
        Caption = 'Draw&Scale (Fit to Screen)'
        object FitToScreen1: TMenuItem
          Caption = '&Fit to Screen'
          OnClick = FitToScreen1Click
        end
        object N251: TMenuItem
          Caption = '&25%'
          OnClick = N251Click
        end
        object N501: TMenuItem
          Caption = '&50%'
          OnClick = N501Click
        end
        object N751: TMenuItem
          Caption = '&75%'
          OnClick = N751Click
        end
        object N1001: TMenuItem
          Caption = '&100%'
          OnClick = N1001Click
        end
        object N2001: TMenuItem
          Caption = '2&00%'
          OnClick = N2001Click
        end
        object N4001: TMenuItem
          Caption = '&400%'
          OnClick = N4001Click
        end
      end
      object RubberBand1: TMenuItem
        Caption = '&Rubber Band (Both)'
        object None1: TMenuItem
          Caption = '&None'
          OnClick = None1Click
        end
        object Items1: TMenuItem
          Caption = '&Items'
          OnClick = Items1Click
        end
        object Handles1: TMenuItem
          Caption = '&Handles'
          OnClick = Handles1Click
        end
        object Both1: TMenuItem
          Caption = '&Both'
          Checked = True
          OnClick = Both1Click
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object DrawArrows1: TMenuItem
        Caption = 'Draw Arrows'
        Checked = True
        OnClick = DrawArrows1Click
      end
      object DrawBackLinks1: TMenuItem
        Caption = 'DrawBackLinks'
        Checked = True
      end
      object DrawColored1: TMenuItem
        Caption = 'DrawColored'
        Checked = True
        OnClick = DrawColored1Click
      end
      object DrawConnLabels1: TMenuItem
        Caption = 'DrawConnLabels'
        Checked = True
        OnClick = DrawConnLabels1Click
      end
      object DrawHandles1: TMenuItem
        Caption = 'DrawHandles'
        Checked = True
        OnClick = DrawHandles1Click
      end
      object DrawItemLabels1: TMenuItem
        Caption = 'DrawItemLabels'
        Checked = True
        OnClick = DrawItemLabels1Click
      end
    end
    object Special1: TMenuItem
      Caption = '&Special'
      object GenerateTree1: TMenuItem
        Caption = 'Random &Tree'
        object N8Nodes1: TMenuItem
          Caption = '&8 Nodes'
          OnClick = N8Nodes1Click
        end
        object N15Nodes1: TMenuItem
          Caption = '&15 Nodes'
          OnClick = N15Nodes1Click
        end
        object N25Nodes1: TMenuItem
          Caption = '&25 Nodes'
          OnClick = N25Nodes1Click
        end
        object N50Nodes1: TMenuItem
          Caption = '&50 Nodes'
          OnClick = N50Nodes1Click
        end
      end
      object RandomDirectedGraph1: TMenuItem
        Caption = 'Random &Directed Graph'
        object N8Nodes2: TMenuItem
          Caption = '&8 Nodes'
          OnClick = N8Nodes2Click
        end
        object N15Nodes2: TMenuItem
          Caption = '&15 Nodes'
          OnClick = N15Nodes2Click
        end
        object N25Nodes2: TMenuItem
          Caption = '&25 Nodes'
          OnClick = N25Nodes2Click
        end
        object N50Nodes2: TMenuItem
          Caption = '&50 Nodes'
          OnClick = N50Nodes2Click
        end
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object RandomSizedNodes1: TMenuItem
        Caption = 'Random &Sized Nodes'
        Checked = True
        OnClick = RandomSizedNodes1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'ITGraph Files (*.ITG)|*.ITG|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open a Graph'
    Left = 40
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'ITG'
    Filter = 'ITGraph Files (*.ITG)|*.ITG|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Save Graph As...'
    Left = 72
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 104
    Top = 8
    object FillColor1: TMenuItem
      Caption = 'Item &Fill Color...'
      OnClick = FillColor1Click
    end
    object TextColor1: TMenuItem
      Caption = 'Item &Text Color...'
      OnClick = TextColor1Click
    end
    object BorderColor1: TMenuItem
      Caption = 'Item &Border Color...'
      OnClick = BorderColor1Click
    end
    object ItemShape1: TMenuItem
      Caption = 'Item &Shape...'
      OnClick = ItemShape1Click
    end
    object ItemGraphic1: TMenuItem
      Caption = 'Item &Graphic...'
      OnClick = ItemGraphic1Click
    end
    object GraphicStyle1: TMenuItem
      Caption = 'Graphic Style'
      object NoGraphic1: TMenuItem
        Caption = '&No Graphic'
        OnClick = NoGraphic1Click
      end
      object FullGraphic1: TMenuItem
        Caption = '&Full Graphic'
        OnClick = FullGraphic1Click
      end
      object HalfGraphic1: TMenuItem
        Caption = '&Half Graphic'
        OnClick = HalfGraphic1Click
      end
      object IconGraphic1: TMenuItem
        Caption = '&Icon Graphic'
        OnClick = IconGraphic1Click
      end
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ForeColor1: TMenuItem
      Caption = 'Foreground Color...'
      OnClick = ForeColor1Click
    end
    object BackColor1: TMenuItem
      Caption = 'Background Color...'
      OnClick = BackColor1Click
    end
    object DefFillColor1: TMenuItem
      Caption = 'Default Fill Color...'
      OnClick = DefFillColor1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Font1: TMenuItem
      Caption = 'Font...'
      OnClick = Font1Click
    end
  end
  object ColorDialog1: TColorDialog
    Left = 168
    Top = 8
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 200
    Top = 8
  end
  object PopupMenu2: TPopupMenu
    Left = 136
    Top = 8
    object MenuItem5: TMenuItem
      Caption = 'Foreground Color...'
      OnClick = ForeColor1Click
    end
    object MenuItem6: TMenuItem
      Caption = 'Background Color...'
      OnClick = BackColor1Click
    end
    object MenuItem7: TMenuItem
      Caption = 'Default Fill Color...'
      OnClick = DefFillColor1Click
    end
    object MenuItem8: TMenuItem
      Caption = '-'
    end
    object MenuItem9: TMenuItem
      Caption = 'Font...'
      OnClick = Font1Click
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 232
    Top = 8
  end
  object PrintDialog1: TPrintDialog
    Left = 264
    Top = 8
  end
  object FindDialog1: TFindDialog
    Options = [frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown]
    OnFind = FindDialog1Find
    Left = 296
    Top = 8
  end
end